home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / turbdemo.pas < prev    next >
Pascal/Delphi Source File  |  1984-12-03  |  2KB  |  116 lines
  1. program test;
  2.  
  3. var
  4. x,x1,t1,CO,T,PA,TI,siz,count :integer;
  5.  
  6.  
  7. procedure box;
  8.     begin;
  9.        draw (x,t,x+siz,t,co);
  10.        draw (x+siz,t,x+siz,t+siz,co) ;
  11.        draw (x+siz,t+siz,x,t+siz,co);
  12.        draw (x,t+siz,x,t,co);
  13.      end;
  14.  
  15.  
  16.  
  17. procedure bigblue;
  18.  
  19. begin
  20.   GRAPHCOLORMODE;
  21.   x :=0;
  22.   x1:=155;
  23.   t1:=190;
  24.   t :=0;
  25.   GOTOXY(1,10);
  26.   writeln('        for more great programs');
  27.   palette (1);
  28.   PA:=0;
  29.  
  30.   REPEAT;
  31.   draw (x,t,x1,t1,CO);
  32.   X :=X+2;T :=T+8;
  33.   PA :=0;
  34.   SOUND(X);
  35.   IF X>80 THEN PA :=2;
  36.   IF X>160 THEN PA :=3;
  37.   PALETTE(PA);
  38.   IF T<150 THEN T:=2;
  39.   IF X>300 THEN BEGIN;
  40.   GOTOXY(0,0);
  41.   WRITELN('        CALL THE BIG BLUE BBS! ');
  42.   WRITELN('             616 791-2109      ');
  43.   REPEAT;
  44.   PALETTE (T);
  45.   SOUND(T);
  46.   T:=T+1;
  47.   UNTIL KEYPRESSED;
  48.   NOSOUND;
  49.   END;
  50.   CO :=CO+1;
  51.   until keypressed;
  52. end;
  53.  
  54. procedure randomboxes;
  55. begin;
  56. graphcolormode;
  57.   count:=0;
  58.   siz:=2;
  59.   repeat;
  60.   x:=random(320);
  61.   nosound;
  62.   t:=random(200);
  63.   co:=random(3)+1;
  64.   count:=count+1;
  65.   sound(t+count);
  66.   box;
  67.   until count>2000;
  68.   end;
  69.  
  70. procedure growingboxes;
  71.           begin;
  72.   nosound;
  73.     graphcolormode;
  74.      co:=1;
  75.      palette(3);
  76.      x:=10;
  77.      t:=10;
  78.      siz:=2;
  79.         repeat;
  80.  
  81.      box;
  82.      x:=x+3;
  83.      t:=t+1;
  84.      siz:=siz+2;
  85.      sound (x+100);
  86.         until x>180;
  87.         co:=co+1;
  88.         repeat;
  89.      x:=x-3;
  90.      siz:=siz-2;
  91.      t:=t+2;
  92.      sound(x+100);
  93.      box;
  94.        until x<10;
  95.      co:=co+1;
  96.      repeat;
  97.      x:=x+3;
  98.      t:=t-4;
  99.      siz:=siz+1;
  100.      sound (x+100);
  101.      box;
  102.      until x>150;
  103.    nosound;
  104.  end;
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111. begin; {main program}
  112. randomboxes;
  113. growingboxes;
  114. bigblue;
  115. end.
  116.